Imports System.Reflection

<AttributeUsage(AttributeTargets.Property, Inherited:=False, AllowMultiple:=False)> _
Public Class DataTypeAttribute
    Inherits Attribute

    Private m_name As SQLTypes

    Public Property TypeName() As SQLTypes
        Get
            Return Me.m_name
        End Get
        Set(ByVal value As SQLTypes)
            Me.m_name = value
        End Set
    End Property

    Public Sub New(ByVal value As SQLTypes)
        Me.m_name = value
    End Sub


End Class
